package provide tkMD 1.1
# require Tcl 8.5 for dict support
if [ catch { package present Tcl 8.5 } error ] {
    puts "Please update your Tcl version."
    error "Version Conflict!"
}
# load module inside the current folder
proc loadModule { fname} {
   global ::loaded
   if ![info exists ::loaded] { set ::loaded {}}
   set mydir [file dirname [dict get [info frame [info frame]] file ]]
   foreach f [list [file join $mydir $fname] $fname ] {
      if [file exists $f] {set fname $f; break}
   }
   if {[lsearch $::loaded $fname] >=0} { return}
   set olddir [pwd]
   #puts "::loaded $fname"
   cd [file dirname $fname]
   lappend ::loaded $fname
   uplevel 1 "source $fname"
   cd $olddir
}

loadModule Data.tcl
loadModule Path.tcl
loadModule SimTask.tcl

